home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs04.d81 / division.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  22 lines
  1. 100 POKE53280,2:POKE53281,1:POKE646,0
  2. 110 PRINTCHR$(147)"CONTINOUS DIVISION TABLES"
  3. 120 FOR T=1 TO 12
  4. 130 FOR N=1 TO 12
  5. 140 D=T/N
  6. 150 PRINT T;"/"N;"=";D:PRINT
  7. 160 FOR G=1 TO 1500:NEXT G
  8. 170 NEXT N
  9. 180 NEXT T
  10. 200 INPUT"WOULD YOU LIKE TO SEE THEM AGAIN(Y/N)";Z$
  11. 210 IF Z$="Y" THEN 110
  12. 220 IF Z$="N" THEN 300
  13. 300 END
  14. 4999 PRINTCHR$(147)
  15. 5000 PRINTTAB(12)         CHR$(144)"*** FOGGER ***":PRINT:PRINT:PRINT:PRINT
  16. 5005 FOR T= 1 TO 3000:NEXT T
  17. 5010 PRINTTAB(12)CHR$(144)"*** PRESENTS ***":PRINT:PRINT:PRINT:PRINT
  18. 5015 FOR I= 1 TO 3000:NEXT I
  19. 5020 PRINTTAB(4)CHR$(144)"*** CONTINOUS DIVISION TABLES ***"
  20. 5025 FOR W= 1 TO 3000:NEXT W
  21. 5030 RETURN
  22.